home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / point2d.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  572 b   |  27 lines
  1. program Essai_struct;
  2.  
  3. var
  4.     pnt1, pnt3 : Point3d;
  5.     pnt2 : Point2d;
  6.     color : rgb;
  7.  
  8. begin
  9.     pnt1.x := 10.1;
  10.     pnt1.y := 20.2;
  11.     pnt1.z := 30.3;
  12.  
  13.     pnt2.x := 40.4;
  14.     pnt2.y := 50.5;
  15.  
  16.     pnt3 := pnt1 ;
  17.  
  18.     color.r := 255;
  19.     color.g := 120;
  20.     color.b := 20;
  21.  
  22.     writeln(' POINT3D:          z=', pnt1.z, ' y=', pnt1.y,' x=', pnt1.x);
  23.     writeln(' POINT2D:          x=', pnt2.x,' y=', pnt2.y);
  24.     writeln(' POINT3D No2:      z=', pnt3.z, ' y=', pnt3.y,' x=', pnt3.x);
  25.     writeln(' COLOR:            r= ', color.r, ' g=',color.g, ' b=',color.b);
  26.  
  27. end.